home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / periodic.tab < prev    next >
Text File  |  1995-03-23  |  5KB  |  255 lines
  1. Item: 262 by _ryanh at hpcvbbs.UUCP
  2. Author: [Ryan Hill]
  3.   Subj: Chemistry
  4.   Keyw: atomic fmula weights and periodic table
  5.   Date: Thu Apr 18 1991 20:15
  6.  Lines: 17
  7.  
  8. This is a program that given an abbreviation, like Pb, will
  9. give the atomic number, weight, and full name like a periodic
  10. table.  I wish the search routine could be in machine language,
  11. but I couldn't do that.  If you can, please do.  Or, given a
  12. formula, like H2O, it will give the weight of the formula, typed in
  13. as {"H" 2 "O" 1}.
  14. There are five programs, FORM, for the formula mass.  FIND, takes
  15. an abbreviation and gives info.  SHW, used by FIND to display values.
  16. NAM, names of all of the elements.  ELM, atomic number, and weight
  17. data on the elements.
  18. Input for FIND just has to be a symbol for an element, don't use quotes!
  19. Input for FORM goes like this.  You put the symbol in quotes,
  20. followed by the amount of it, (don't forget to put 1 when it is only
  21. one!) and so on.  This must be in a list though.
  22. I wished that I could have a picture of the table, and flip through it
  23. like the Chem Applications Pac cartridge.  If anybody can, please do.
  24. Please upload any revisions. Thanks.                            
  25.  
  26. [Program deleted - Wayne]
  27.  
  28.  
  29. From: fin@norge.unet.umn.edu (Craig A. Finseth)
  30. Newsgroups: comp.sys.handhelds
  31. Subject: Re: Periodic Table
  32. Message-ID: <3956@uc.msc.umn.edu>
  33. Date: 24 Apr 91 14:16:11 GMT
  34. Organization: Univ Netw Serv, Univ of Minn
  35.  
  36. I tried downloading this last night and couln't.  After an hour or so
  37. of hacking, I wound up with a re-written form.  It is several hundred
  38. bytes smaller and runs faster.
  39.  
  40. Changes:
  41.  
  42. - Dropped the atomic numbers from the ELM list, as these are used as
  43. an index into the list!
  44.  
  45. - Reworked the interfaces (e.g., you now enter atomic symbols in ""s, for
  46. those of us who might have variable name conflicts).
  47.  
  48. - Used translation type 3 for the upload!
  49.  
  50. - Include checksum and size information.
  51.  
  52. I did not rewrite the "FORM" routine: I leave that as an excercise for
  53. the reader.
  54.  
  55. SYMB        Accepts a name in quotes and returns the information on the
  56.         element.
  57. ANUM        Accepts an atomic number and returns the information on the
  58.         element.
  59. NAM        The 109 atomic names.
  60. ELM        The 109 atomic properties as "symbol1 weight1 symbol2
  61.         weight2..."
  62.  
  63. Craig A. Finseth            fin@unet.umn.edu [CAF13]
  64. University Networking Services        +1 612 624 3375 desk
  65. University of Minnesota            +1 612 625 0006 problems
  66. 130 Lind Hall, 207 Church St SE        +1 612 626 1002 FAX
  67. Minneapolis MN 55455-0134, U.S.A.
  68.  
  69.  
  70. Checksum: #10b9h
  71. Size: 3579.5
  72. ------------------------------------------------------------
  73. %%HP: T(3)A(D)F(.);
  74. DIR
  75.   SYMB
  76.     \<< \-> S
  77.       \<< 1 109
  78.         FOR x 'ELM'
  79. x 2 * 1 - GET
  80.           IF S ==
  81.           THEN x
  82. ANUM 110 'x' STO
  83.           END
  84.         NEXT
  85.       \>>
  86.     \>>
  87.   ANUM
  88.     \<< \-> N
  89.       \<< N "ATOMIC#"
  90. \->TAG 'NAM' N GET
  91. "NAME" \->TAG 'ELM' N
  92. 2 * 1 - GET
  93. "SYMBOL" \->TAG 'ELM'
  94. N 2 * GET "ATWT"
  95. \->TAG
  96.       \>>
  97.     \>>
  98.   NAM { "Hydrogen"
  99. "Helium" "Lithium"
  100. "Beryllium" "Boron"
  101. "Carbon" "Nitrogen"
  102. "Oxygen" "Flourine"
  103. "Neon" "Sodium"
  104. "Magnesium"
  105. "Aluminum"
  106. "Silicon"
  107. "Phosphorous"
  108. "Sulfur" "Chlorine"
  109. "Argon" "Potassium"
  110. "Calcium"
  111. "Scandium"
  112. "Titanium"
  113. "Vanadium"
  114. "Cromium"
  115. "Manganese" "Iron"
  116. "Cobalt" "Nickel"
  117. "Copper" "Zinc"
  118. "Gallium"
  119. "Germanium"
  120. "Arsenic"
  121. "Selenium"
  122. "Bromine" "Krypton"
  123. "Rubidium"
  124. "Strontium"
  125. "Yttrium"
  126. "Zirconium"
  127. "Niobium"
  128. "Molybdenum"
  129. "Technetium"
  130. "Ruthenium"
  131. "Rhodium"
  132. "Palladium"
  133. "Silver" "Cadmium"
  134. "Indium" "Tin"
  135. "Antimony"
  136. "Tellurium"
  137. "Iodine" "Xenon"
  138. "Cesium" "Barium"
  139. "Lanthanum"
  140. "Cerium"
  141. "Praseodymeum"
  142. "Neodymium"
  143. "Promethium"
  144. "Samarium"
  145. "Europium"
  146. "Gadolinium"
  147. "Terbium"
  148. "Dyprosium"
  149. "Holmium" "Erbium"
  150. "Thulium"
  151. "Ytterbium"
  152. "Lutetium"
  153. "Hafneum"
  154. "Tantalum"
  155. "Tungsten"
  156. "Rhenium" "Osmium"
  157. "Iridium"
  158. "Platinum" "Gold"
  159. "Mercury"
  160. "Thallium" "Lead"
  161. "Bismuth"
  162. "Polonium"
  163. "Astatine" "Radon"
  164. "Francium" "Radium"
  165. "Actinium"
  166. "Thorium"
  167. "Protactinium"
  168. "Uranium"
  169. "Neptunium"
  170. "Plutonium"
  171. "Americium"
  172. "Curium"
  173. "Berkelium"
  174. "Californium"
  175. "Einsteinium"
  176. "Fermium"
  177. "Mendelevium"
  178. "Nobilium"
  179. "Lawrencium"
  180. "Unknown" "Unknown"
  181. "Unknown" "Unknown"
  182. "" "Unknown" }
  183.   ELM { "H" 1.0079
  184. "He" 4.0026 "Li"
  185. 6.941 "Be" 9.0122
  186. "B" 10.81 "C"
  187. 12.011 "N" 14.007
  188. "O" 15.999 "F"
  189. 18.998 "Ne" 20.179
  190. "Na" 22.99 "Mg"
  191. 24.305 "Al" 26.982
  192. "Si" 28.086 "P"
  193. 30.974 "S" 32.06
  194. "Cl" 35.453 "Ar"
  195. 39.948 "K" 39.098
  196. "Ca" 40.08 "Sc"
  197. 44.956 "Ti" 47.9
  198. "V" 50.941 "Cr"
  199. 51.996 "Mn" 54.938
  200. "Fe" 55.847 "Co"
  201. 58.933 "Ni" 58.71
  202. "Cu" 63.546 "Zn"
  203. 65.38 "Ga" 69.72
  204. "Ge" 72.59 "As"
  205. 74.922 "Se" 78.96
  206. "Br" 79.904 "Kr"
  207. 83.8 "Rb" 85.468
  208. "Sr" 87.62 "Y"
  209. 88.906 "Zr" 91.22
  210. "Nb" 92.906 "Mo"
  211. 95.94 "Tc" 97 "Ru"
  212. 101.07 "Rh" 102.91
  213. "Pd" 106.4 "Ag"
  214. 107.87 "Cd" 112.41
  215. "In" 114.82 "Sn"
  216. 118.69 "Sb" 121.75
  217. "Te" 127.6 "I"
  218. 126.9 "Xe" 131.3
  219. "Cs" 132.91 "Ba"
  220. 137.33 "La" 138.91
  221. "Ce" 140.12 "Pr"
  222. 140.91 "Nd" 144.24
  223. "Pm" 145 "Sm" 150.4
  224. "Eu" 151.96 "Gd"
  225. 157.25 "Tb" 158.93
  226. "Dy" 162.5 "Ho"
  227. 164.93 "Er" 167.26
  228. "Tm" 168.93 "Yb"
  229. 173.04 "Lu" 174.97
  230. "Hf" 178.49 "Ta"
  231. 180.95 "W" 183.85
  232. "Re" 186.21 "Os"
  233. 190.2 "Ir" 192.22
  234. "Pt" 195.09 "Au"
  235. 196.97 "Hg" 200.59
  236. "Tl" 204.37 "Pb"
  237. 207.2 "Bi" 208.98
  238. "Po" 209 "At" 210
  239. "Rn" 222 "Fr" 223
  240. "Ra" 226.03 "Ac"
  241. 227 "Th" 232.04
  242. "Pa" 231.04 "U"
  243. 238.03 "Np" 237.05
  244. "Pu" 244 "Am" 243
  245. "Cm" 247 "Bk" 247
  246. "Cf" 251 "Es" 254
  247. "Fm" 257 "Md" 258
  248. "No" 259 "Lr" 260
  249. "Unk" 261 "Unk" 262
  250. "Unk" 263 "Unk" 264
  251. "Unk" 0 "Unk" 266 }
  252. END
  253.  
  254.  
  255.